unit UCadRamoAtividade;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Modelo, StdCtrls, Mask, DBCtrls, DB, DBTables, Grids, DBGrids,
  Buttons, CheckLst, ExtCtrls, UDPTOUteis;

type
  TFCadRamoAtividade = class(TFModelo)
    intgrfldPadraoRAMOCODIGO: TIntegerField;
    strngfldPadraoRAMODESCRICAO: TStringField;
    lbl1: TLabel;
    dbedtRAMOCODIGO: TDBEdit;
    lbl2: TLabel;
    dbedtRAMODESCRICAO: TDBEdit;
    procedure qPadraoAfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FCadRamoAtividade: TFCadRamoAtividade;

implementation

{$R *.dfm}

procedure TFCadRamoAtividade.qPadraoAfterInsert(DataSet: TDataSet);
begin
  inherited;
  qPadrao.FieldByName('RAMOCODIGO').AsInteger := DPTOProximo('RAMO');
end;

end.
